home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / psion / src.doc / unsorted / oplhlp / oplhelp.opa / oplhelp.txt next >
Text File  |  1984-03-29  |  10KB  |  805 lines
  1. OPLObjectFile**
  2. LOC::B:\OPL\OPLHELP.OPL
  3. OPLHELP.ODB
  4. \OPD\
  5. B3LOADER
  6. showpel2O
  7. OPL/W+
  8. Opl SyntaxOO+
  9. IO functionOI+
  10. Script CommandsOS
  11. +    Utilities+
  12. ErrorsOE+
  13. Ascii TableOA+
  14. Binary conversionOB
  15. Quit+
  16. Bye!OX
  17. About OPL AssistantOH+
  18. VersionOV
  19. ABOUT
  20. Version 1.0
  21. B3LOADER
  22. asciitabO
  23. drawO
  24. B3LOADER
  25. errorO
  26. B3LOADER
  27. HexdebinO
  28. ABSO#+
  29. ACOSO\+
  30. ADDRO~+
  31. ALERTO'+
  32. APPO@+
  33. APPENDO{
  34. ASCO}+
  35. ASINO[+
  36. ATO]+
  37. ATANO=+
  38. BACKOQ+
  39. BEEPOW
  40. BREAKOE+
  41. BUSYOR+
  42. CALLOT+
  43. CHR$OY+
  44. CLOSEOU+
  45. CLSOI
  46. CMD$OO+
  47. COMPRESSOP+
  48. CONTINUEO_+
  49. COPYOA+
  50. COSOS+
  51. COUNTOD
  52. CREATEOF+
  53. CURSOROG+    DATETOSECOH+
  54. DATIM$OJ+
  55. DAYOK+
  56. DAYNAME$OL
  57. DAYSO:+
  58. dBUTTONSOZ+
  59. dCHOICEOX+
  60. dDATEOC+
  61. dEDITOV+
  62. DEGOB
  63. DELETEON+
  64. dFILEOM+
  65. dFLOATO++
  66. DIALOGO-+
  67. dINITO*+
  68. DIR$O.
  69. MOREO,
  70. a=ABS(x)O
  71. +    a=ACOS(x)O
  72. O~@["
  73. a%=ADDR(var)O
  74. O'@[3
  75. r%=ALERT(m1$,m2$,b1$,b2$,b3$)O
  76. O@@[%
  77. APP nameO
  78. ENDAO
  79. APPENDO
  80. O}@[ 
  81. a%=ASC(a$)O
  82. +    a=ASIN(x)O
  83. AT x%,y%O
  84. +    a=ATAN(x)O
  85. BACKO
  86. Ow@[S
  87. BEEP time%,pitchO
  88. Rem -- time%/32 secsO
  89. Rem -- 512/(pitch%+1) KHZO
  90. BREAKO
  91. Or@[S
  92. BUSY str$,c%,delay%O
  93. Rem -- str$<20 chr'sO
  94. Rem -- c%=0-3 positionO
  95. Ot@[4
  96. e%=CALL(s%,bx%,cx%,dx%,si%,di%O
  97. Oy@[!
  98. a$=CHR$(x%)O
  99. CLOSEO
  100. Oo@[!
  101. c$=CMD$(x%)O
  102. Op@[)
  103. COMPRESS src$,dest$O
  104. CONTINUEO
  105. Oa@[%
  106. COPY src$,dest$O
  107. c=COS(x)O
  108. c%=COUNTO
  109. Of@[.
  110. CREATE fil$,log,f1,f2...O
  111. Og@[G
  112. +    CURSOR ONO
  113. CURSOR OffO
  114. CURSOR id%,asc%,width%,height%O
  115. Oh@[<
  116. +&s&=DATETOSECS(yr%,mo%,dy%,hr%,mn%,sc%)O
  117. +    d$=DATIM$O
  118. d%=DAYO
  119. Ol@[%
  120. d$=DAYNAME$(x%)O
  121. O:@[Q
  122. d&=DAYS(day%,month%,year%)O
  123. +!Rem -- # of days since 01/01/1900O
  124. Oz@[6
  125. + dBUTTONS p1$,k1%,p2$,k2%,p3$,k3%O
  126. Ox@[2
  127. dCHOICE var choice%,p$,list$O
  128. Oc@[0
  129. dDATE var lg&,p$,min&,max&O
  130. Ov@[,
  131. dEDIT var str$,p$,len%O
  132. d=DEG(x)O
  133. On@[&
  134. DELETE filename$O
  135. Om@[*
  136. dFILE var str$,p$,f%O
  137. O+@[.
  138. dFLOAT var fp,p$,min,maxO
  139. +    d%=DIALOGO
  140. O*@[)
  141. dINIT title$O
  142. dINITO
  143. O.@[@
  144. d$=DIR$(filespec$)O
  145. thenO
  146. d$=DIR$(
  147. O,@[    
  148. dLONGO#+
  149. DO...UNTILO\+
  150. DOWO~+    dPOSITIONO'+
  151. dTEXTO@+
  152. dTIMEO{
  153. dXINPUTO}+
  154. EDITO[+
  155. EOFO]+
  156. ERASEO)+
  157. ERR,ERR$O=+
  158. ESCAPE OFFOQ
  159. EVALOW+
  160. EXISTOE+
  161. EXPOR+
  162. EXTOT+
  163. FINDOY+
  164. FIRSTOU
  165. FIX$OI+
  166. FLTOO+
  167. gATOP+
  168. gBORDERO_+
  169. gBOXO-+
  170. gCLOCKOA
  171. gCLOSEOS+
  172. gCLSOD+
  173. gCOPYOF+
  174. gCREATEOG+
  175. gCREATEBITOH+
  176. GENOJ
  177. GET,GET$OK+
  178. GETCMD$O:+
  179. GETEVENTO/+
  180. gFILLO;+
  181. gFONTO*
  182. gGMODEOZ+
  183. gHEIGHTOX+    gIDENTITYOC+
  184. gINFOOV+
  185. gINVERTOB+
  186. MOREOM
  187. O#@[0
  188. dLONG var lg&,p$,min&,max&O
  189. O\@["
  190. . . .O
  191. UNTILO
  192. O~@[.
  193. d%=DOW(day%,month%,year%O
  194. O'@[?
  195. dPOSITION x%,y%O
  196. (1,0) (1,1) (-1,0) (-1,-1)O
  197. O@@[:
  198. dTEXT p$,body$,t%O
  199. Rem -- t%=alignmentO
  200. O{@[3
  201. dTIME var lg&,p$,t%,min&,max&O
  202. O}@[<
  203. dXINPUT var str$,p$O
  204. Rem -- Secret inputO
  205. EDIT a$O
  206. O]@['
  207. e%=EOFO
  208. End of fileO
  209. ERASEO
  210. O=@[#
  211. e%=ERRO
  212. e$=ERR$O
  213. Oq@[.
  214. ESCAPE OFFO
  215. . . .O
  216. +    ESCAPE ONO
  217. Ow@[ 
  218. d=EVAL(s$)O
  219. Oe@[)
  220. e%=EXIST(filename$)O
  221. e=EXP(x)O
  222. +    EXT name$O
  223. Oy@[!
  224. f%=FIND(a$)O
  225. FIRSTO
  226. Oi@[&
  227. f$=fix$(x,y%,z%)O
  228. +    f=FLT(x&)O
  229. +    gAT x%,y%O
  230. O_@[4
  231. gBORDER flags%,width%,height%)O
  232. O-@[*
  233. gBOX width%,height%)O
  234. Oa@[@
  235. gCLOCK ON,mode%,offset%O
  236. +    GCLOCK ONO
  237. gCLOCK OFFO
  238. Os@[ 
  239. gCLOSE id%O
  240. gCLSO
  241. Of@[1
  242. gCOPY id%,x%,y%,w%,h%,mode%O
  243. Og@[A
  244. gCREATE(x%,y%,w%,h%,v%)O
  245. Rem -- v%= On or OffO
  246. Oh@[4
  247. id%=gCREATEBIT(width%,height%)O
  248. Oj@[#
  249. g$=GEN$(x,y%)O
  250. Ok@[#
  251. g%=GETO
  252. g$=GET$O
  253. O:@[ 
  254. w$=GETCMD$O
  255. O/@['
  256. GETEVENT var a%()O
  257. O;@[1
  258. gFILL width%,height%,gMode%O
  259. O*@[#
  260. gFONT fontid%O
  261. Oz@[7
  262. gGMODE mode%O
  263. 0=set 1=cleared 2=invO
  264. Ox@[%
  265. height%=gHEIGHTO
  266. Oc@[#
  267. id%=gIDENTITYO
  268. Ov@[$
  269. gINFO var i%()O
  270. Ob@[,
  271. gINVERT width%,height%O
  272. Om@[    
  273. GIPRINTO#+
  274. gLINEBYO\+
  275. gLINETOO~+
  276. gLOADBITO'+    gLOADFONTO@+
  277. GLOBALO{
  278. gMOVEO}+
  279. gORDERO[+
  280. gORIGINXO]+
  281. gORIGINYO=+
  282. GOTOO++
  283. gPATTOQ
  284. G+    gPEEKLINEOW+
  285. gPOLYOE+
  286. gPRINTOR+
  287. gPRINTBOT+
  288. gPRINTCLIPOY+
  289. gRANKOU
  290. gSAVEBITOI+
  291. gSCROLLOO+
  292. gSETWINOP+
  293. gSTYLEO_+
  294. gTMODEO-+
  295. gTWIDTHOA
  296. gUNLOADFONTOS+
  297. gUPDATEOD+
  298. gUSEOF+
  299. gVISIBLEOG+
  300. gWIDTHOH+
  301. gXPRINTOK+
  302. gYOL+
  303. HEX$O:+
  304. HOURO*+
  305. IABSO/+
  306. ICONO;
  307. IF...ENDIFOZ+
  308. INPUTOX+
  309. INTOC+
  310. INTFOV+
  311. KEYOB+
  312. KEY$ON
  313. KEYAO,+
  314. KEYCO<+
  315. KMODO>+
  316. LASTO.+
  317. MOREOM
  318. O#@[+
  319. GIPRINT str$,c%O
  320. c%=0-3O
  321. O\@[D
  322. gLINEBY dx%,dy%O
  323. Rem -- dx% rightO
  324. Rem -- dy% downO
  325. O~@[#
  326. gLINETO x%,y%O
  327. O'@[/
  328. gLOADBIT(name$,write%,i%)O
  329. O@@[.
  330. fontid%=gLOADFONT(name$)O
  331. O{@[&
  332. GLOBAL variablesO
  333. O}@[#
  334. gMOVE dx%,dy%O
  335. O[@[*
  336. gORDER id%,position%O
  337. O]@[!
  338. x%=gORIGINXO
  339. O=@[!
  340. y%=gORIGINYO
  341. O+@[/
  342. GOTO labelO
  343. GOTO label::O
  344. Oq@[4
  345. gPATT id%,width%,height%,mode%O
  346. Ow@[2
  347. gPEEKLINE id%,x%,y%,d%(),ln%O
  348. Oe@[ 
  349. gPOLY a%()O
  350. Or@[!
  351. gPRINT listO
  352. Ot@[b
  353. gPRINTB t$,w%,al%,tp%,bt%,m%O
  354. +#text,width,align,top,bott clearanceO
  355. margin offsetO
  356. Oy@[1
  357. w%=gPRINTCLIP(text$,width$)O
  358. Ou@[$
  359. rank%=gRANKO
  360. Oi@[C
  361. gSAVEBIT name$,width$,height$O
  362. gSAVEBIT name$O
  363. Oo@[D
  364. gSCROLL dx%,dy%,x%,y%,wd%,ht%O
  365. gSCROLL dx%,dy%O
  366. Op@[:
  367. gSETWIN x%,y%,wd%,ht%O
  368. gSETWIN x%,y%O
  369. O_@[#
  370. gSTYLE style%O
  371. O-@[%
  372. gTMODE mode%O
  373. Oa@[+
  374. width%=gTWIDTH(text$)O
  375. Os@[)
  376. gUNLOADFONT fontid%O
  377. Od@[2
  378. gUPDATE ONO
  379. gUPDATE OFFO
  380. gUPDATEO
  381. gUSE id%O
  382. Og@[%
  383. gVISIBLE ON/OFFO
  384. Oh@[#
  385. width%=gWIDTHO
  386. x%=gXO
  387. Ok@[+
  388. gXPRINT string$,flag%O
  389. y%=gYO
  390. O:@[!
  391. h$=HEX$(x&)O
  392. h%=HOURO
  393. i&=IABSO
  394. O;@[ 
  395. ICON name$O
  396. Oz@[5
  397. IF condition1O
  398. ELSEIF...ELSEO
  399. ENDIFO
  400. Ox@[0
  401. +    INPUT varO
  402. INPUT log.fieldO
  403. +    i&=INT(x)O
  404. +    i=INTF(x)O
  405. k%=KEYO
  406. k$=KEY$O
  407. O,@[6
  408. + err%=KEYA(var stat%,var key%(1))O
  409. O<@[*
  410. err%=KEYC(var stat%)O
  411. O>@[H
  412. k%=KMODO
  413. (2 shift)(4 Control)O
  414. (8 PSION)(16 Caps lock)O
  415. LASTO
  416. Om@[    
  417. LCLOSEO#+
  418. LEFT$O\+
  419. LENO~+
  420. LNO'+
  421. LOADMO@+
  422. LOCO{
  423. LOCALO}+
  424. LOCKO[+
  425. LOGO]+
  426. LOPENO=+
  427. LOWER$O++
  428. LPRINTO!
  429. MAXO"+
  430. mCARD(
  431. MEANO$+
  432. MENUO%+
  433. MID$O^+
  434. MINO&
  435. mINITO?+
  436. MINUTEO(+
  437. MKDIRO)+
  438. MONTHOQ+
  439. MONTH$OW+
  440. NEXTOE
  441. NUMOR+
  442. ONERROT+
  443. OPENOY+
  444. OPENROU+
  445. PARSE$OO+
  446. PATHO_+
  447. PAUSEO-+
  448. PIOA+    PEEK/POKEOS+
  449. POSOD
  450. POSITIONOF+
  451. PRINTOG+
  452. RADOH+
  453. RAISEOJ+    RANDOMIZEOK+
  454. RECSIZEOL
  455. REMO:+
  456. RENAMEO*+
  457. REPT$O;+
  458. RETURNO/+
  459. RIGHT$OZ+
  460. RMDIROX
  461. RNDOC+
  462. SCI$OV+
  463. SCREENOB+
  464. SECONDON+
  465. SECSTODATEO,+
  466. MOREOM
  467. LCLOSEO
  468. O\@[%
  469. b$=LEFT$(a$,x%)O
  470. O~@[ 
  471. a%=LEN(a$)O
  472. a=LN(x)O
  473. O@@[#
  474. LOADM module$O
  475. O{@[8
  476. a%=LOC(a$,b$)O
  477. in a$ where b$ occursO
  478. O}@[%
  479. LOCAL variablesO
  480. O[@[%
  481. LOCK ONO
  482. LOCK OFFO
  483. a=LOG(x)O
  484. O=@[G
  485. LOPEN device$O
  486. TTY:A serial portO
  487. PAR:A Parallel portO
  488. O+@[#
  489. b$=LOWER$(A$)O
  490. O!@[!
  491. LPRINT listO
  492. O"@[9
  493. m=MAX(list)O
  494. m=MAX(array(),element)O
  495. mCARD title$,n1$,k1%,n2$,k2%O
  496. O$@[9
  497. m=MEAN(list)O
  498. m=MEAN(array(),element)O
  499. +    val%=MENUO
  500. O^@['
  501. m$=MID$(a$,x%,y%)O
  502. O&@[7
  503. m=MIN(list)O
  504. m=MIN(array(),element)O
  505. mINITO
  506. +    m%=MINUTEO
  507. O)@[!
  508. MKDIR name$O
  509. m%=MONTHO
  510. Ow@[#
  511. m$=MONTH$(x%)O
  512. NEXTO
  513. Or@[#
  514. n$=NUM$(x,y%)O
  515. OFF x%O
  516. Ot@[7
  517. ONERR labelO
  518. ONERR label::O
  519. +    ONERR OFFO
  520. Oy@[-
  521. OPEN file$,log,f1,f2...O
  522. Ou@[$
  523. OPENRO
  524. +    read onlyO
  525. Oi@[=
  526. a%=OS(i%,addr1%)O
  527. a%=addr1%(),addr2%())O
  528. Oo@[3
  529. p$=PARSE$(f$,rel$,var off%())O
  530. Op@[ 
  531. PATH name$O
  532. O-@['
  533. PAUSE x%O
  534. +    PAUSE -x%O
  535. p=PIO
  536. Os@[i
  537. PEEKB(x%),PEEKW(x%),PEEKL(x%)O
  538. PEEKF(x%),PEEK$(x%)O
  539. +#POKEB x%,y% - Rem - format for pokeO
  540. p%=POSO
  541. Of@[!
  542. POSITION x%O
  543. Og@[ 
  544. PRINT listO
  545. r=RAD(x)O
  546. RAISE x%O
  547. Ok@["
  548. RANDOMIZE x&O
  549. Ol@[ 
  550. r%=RECSIZEO
  551. REM textO
  552. O*@[*
  553. RENAME file1$,file2$O
  554. O;@[%
  555. r$=REPT$(a$,x%)O
  556. O/@[(
  557. RETURNO
  558. RETURN varO
  559. Oz@[&
  560. r$=RIGHT$(a$,x%)O
  561. Ox@[ 
  562. RMDIR str$O
  563. r=RNDO
  564. Ov@[&
  565. s$=SCI$(x,y%,z%)O
  566. Ob@[?
  567. SCREEN width%,height%,x%,y%O
  568. x%,y% optionalO
  569. +    s%=SECONDO
  570. O,@[A
  571. SECSTODATE s&,yr%,mo%O
  572. dy%,hr%,mn%,sc%,yrday%O
  573. Om@[    
  574. SETNAMEO.+
  575. SETPATHO#+
  576. SINO\+
  577. SPACEO~+
  578. SQRO'+    STATUSWINO@
  579. STDO{+
  580. STOPO}+
  581. SUMO[+
  582. TANO]+    TESTEVENTO=+
  583. TRAPO+
  584. TYPEO!+
  585. UNLOADMO"+
  586. UNTIL(
  587. UPDATEO$+
  588. UPPER$O%+
  589. USEO^
  590. USRO&+
  591. USR$O(+
  592. VALO)+
  593. VAROQ+
  594. VECTOROW+
  595. WEEKOE
  596. WHILE...ENDWHOR+
  597. YEAROT
  598. O.@[#
  599. SETNAME name$O
  600. O#@[#
  601. SETPATH name$O
  602. O\@["
  603. s=SIN(angle)O
  604. s&=SPACEO
  605. s=SQR(x)O
  606. O@@[&
  607. STATUSWIN ON/OFFO
  608. O{@[7
  609. s=STD(list)O
  610. s=STD(array(),element)O
  611. STOPO
  612. O[@[!
  613. s=SUM(list)O
  614. O]@["
  615. t=TAN(angle)O
  616. O=@["
  617. t%=TESTEVENTO
  618. O+@[9
  619. TRAP commandO
  620. see manual for commandsO
  621. +    TYPE num%O
  622. O"@[%
  623. UNLOADM module$O
  624. UNTILO
  625. UPDATEO
  626. O%@[#
  627. u$=UPPER$(a$)O
  628. O^@[-
  629. USE logical nameO
  630. a,b,c,dO
  631. O&@[I
  632. u%=USR(pc%,ax%,bx%,cx%,dx%)O
  633. passed to 8086 registersO
  634. O(@[J
  635. u$=USR$(pc%,ax%,bx%,cx%,dx%)O
  636. passed to 8086 registersO
  637. O)@[+
  638. v=VAL(numeric string)O
  639. Oq@[7
  640. v=VAR(list)O
  641. v=VAR(array(),element)O
  642. Ow@[0
  643. +    VECTOR I%O
  644. label1,label2O
  645. ENDVO
  646. Oe@[0
  647. w%=WEEK(day%,month%,year%)O
  648. Or@["
  649. WHILEO
  650. ENDWO
  651. y%=YEARO
  652. OPL/W Commands(
  653. Syntax:
  654. \opo\
  655. IOOPENOO+
  656. IOCLOSEOC+
  657. IOREADOR+
  658. IOWRITEOW+
  659. IOSEEKOS
  660. More+
  661. IOWOI+
  662. IOAOA+
  663. IOWAITOT+
  664. IOSIGNALOG+
  665. IOYIELDOY
  666. And Yet More+
  667. IOWAITSTATOX
  668. Oo@[/
  669. r%=IOOPEN(h%,name$,mode%)O
  670. Oc@[$
  671. r%=IOCLOSE(h%)O
  672. Or@[1
  673. r%=IOREAD(h%,addr%,maxlen%)O
  674. Ow@[2
  675. r%=IOWRITE(h%,addr%,length%)O
  676. Os@[.
  677. r%=IOSEEK(h%,mode%,off&)O
  678. Oi@[,
  679. r%=IOW(h%,func%,a1,a2)O
  680. Oa@[1
  681. r%=IOA(h%,f%,status%,a1,a2)O
  682. IOWAITO
  683. IOSIGNALO
  684. IOYIELDO
  685. Ox@[&
  686. IOWAITSTAT stat%O
  687. Port+
  688. CONNECTOC+
  689. HANGUPOH+
  690. RESETOR+
  691. SETUPOS
  692. Sending+
  693. ON REPLYOO+
  694. SENDOZ+
  695. SENDWAITOF+
  696. WAITOW
  697. Files+
  698. CAPTUREOY+
  699. EXISTSOE+
  700. NEXISTSON+
  701. RECEIVEO*+
  702. TRANSMITOT
  703. UserInfo+
  704. ALERTOA+
  705. BEEPOB+
  706. INFOOI+
  707. MENUOM+
  708. PASSWORDOP+
  709. QUERYOQ
  710. Prog+
  711. CALLOV+
  712. EXITOX+
  713. GOTOOG+
  714. ONOU+
  715. SETOJ
  716. Other+
  717. DRAINOD
  718. Oc@[J
  719. CONNECT 20 GOTO againO
  720. Waits by 1/2 secs for HandshakeO
  721. Oh@[B
  722. HANGUPO
  723. drops DTR for 3 sec'sO
  724. Modem will hangupO
  725. Or@[:
  726. RESETO
  727. set parameters back to originalO
  728. Os@[y
  729. SETUP (BAUD=? :PARITY=? :DATA=?O
  730. +#STOP=? :HANDSHAKE=? :FAIL=? :ECHO=?O
  731. +!NEWLINE=? :BACKSPACE=? :TIMEOUT=?O
  732. Oo@[M
  733. +!ON REPLY  CONNECT 2400 goto labelO
  734. in brackets after waitO
  735. Oz@[1
  736. SEND PW$O
  737. SEND 
  738. Of@[Z
  739. SENDWAIT 10
  740. COMPUSERVEK
  741. USER ID:K
  742.  goto nextKO
  743. Ow@[-
  744. WAIT 40O
  745. waits 20 secondsO
  746. Oy@[B
  747. CAPTURE filename$O
  748. Captures all data to a fileO
  749. Oe@[Q
  750. EXISTS fn$ goto nextO
  751. checks for existing fileO
  752. jumps if existsO
  753. On@[Z
  754. NEXISTS fn$ goto nextO
  755. checks for existing fileO
  756. jumps if does not existO
  757. O*@[d
  758. RECEIVE fn$, XMDMO
  759. XMDM,XMCRC,XM1K,YMDM,YMDMGO
  760. +#YM1K,YG1K Rem -- receive w/ProtocolO
  761. Ot@[3
  762. TRANSMIT fn$, XMDMO
  763. see RECEIVEO
  764. Oa@[2
  765. ALERT message$O
  766. Displays alertO
  767. Ob@[ 
  768. BEEP x%,y%O
  769. Oi@[@
  770. INFO mess$O
  771. + displays message on bottom rightO
  772. Om@[K
  773. MENU title$ (c1$ goto redoO
  774. c2$ goto sendO
  775. c3$ goto quit)O
  776. Op@[>
  777. PASSWORDO
  778. + ask for Pw of current names fileO
  779. QUERYO
  780. Ov@[E
  781. CALL script2$O
  782. +"stops current script, starts otherO
  783. Ox@[-
  784. EXITO
  785. stop ruuning scriptO
  786. Og@[0
  787. GOTO labelO
  788. jumps to a labelO
  789. Oj@[-
  790. set a counter :c1=10O
  791. Od@[5
  792. DRAINO
  793. empties the receive bufferO
  794. About OPL Assistant(
  795. +(OPL Assistant is a shareware program for
  796. ++Ser3 users that want to do some programming
  797. +'If you use it send $10 dollars to Mark 
  798. +(Esposito at 6310 Rampart #34, Houston Tx
  799. ++77081, and you will receive updates and new
  800. modules. Comments welcome
  801. OPLA-
  802. OPLEa
  803. B3LOADERA2
  804. ABOUT
  805.